home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga1 / avm1_19.lha / source / playdate.avmsrc < prev    next >
Text File  |  1994-04-06  |  6KB  |  339 lines
  1. startrecord=true
  2. label=playdate
  3. nodetype=14
  4. comment=We're going to play the month and day
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=
  10. nodetype=8
  11. line1=procedure
  12. line2=parse arg actualDate
  13. line3=
  14. line4=
  15. line5=
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=
  26. nodetype=8
  27. line1=dateformat = getclip('AVMDateFormat')
  28. line2=if dateformat = "" then dateformat = "%month %day"
  29. line3=else if upper(dateformat) = "NONE" then dateformat = ""
  30. line4=
  31. line5=
  32. line6=
  33. line7=
  34. line8=
  35. line9=
  36. line10=
  37. nextactiontype=3
  38. nextactionaction=
  39. endrecord=true
  40. startrecord=true
  41. label=
  42. nodetype=8
  43. line1=do i = 1 to words(dateformat)
  44. line2=  if upper(word(dateformat, i)) = "%MONTH" then
  45. line3=    call playnumbranch('playdate' || substr(actualDate, 5, 2))
  46. line4=  else if upper(word(dateformat, i)) = "%DAY" then
  47. line5=    call playddnumber(substr(actualDate, 7, 2))
  48. line6=  else
  49. line7=    call playddvoice(word(dateformat, i))
  50. line8=end
  51. line9=
  52. line10=
  53. nextactiontype=3
  54. nextactionaction=
  55. endrecord=true
  56. startrecord=true
  57. label=
  58. nodetype=14
  59. comment=We're done
  60. nextactiontype=2
  61. nextactionaction=return
  62. endrecord=true
  63. startrecord=true
  64. label=playddvoice
  65. nodetype=8
  66. line1=procedure
  67. line2=parse arg filename
  68. line3=
  69. line4=
  70. line5=
  71. line6=
  72. line7=
  73. line8=
  74. line9=
  75. line10=
  76. nextactiontype=3
  77. nextactionaction=
  78. endrecord=true
  79. startrecord=true
  80. label=
  81. nodetype=1
  82. filename=filename
  83. comment=
  84. keyactiontype=3
  85. keyactionaction=
  86. faxactiontype=0
  87. faxactionaction=stdfax
  88. dataactiontype=0
  89. dataactionaction=stddata
  90. busyactiontype=0
  91. busyactionaction=stdbusy
  92. abortactiontype=0
  93. abortactionaction=stdabort
  94. erroractiontype=0
  95. erroractionaction=stderror
  96. nextactiontype=2
  97. nextactionaction=return
  98. endrecord=true
  99. startrecord=true
  100. label=playdate01
  101. nodetype=1
  102. filename='avm:voices/monthjanuary'
  103. comment=January
  104. keyactiontype=3
  105. keyactionaction=
  106. faxactiontype=0
  107. faxactionaction=stdfax
  108. dataactiontype=0
  109. dataactionaction=stddata
  110. busyactiontype=0
  111. busyactionaction=stdbusy
  112. abortactiontype=0
  113. abortactionaction=stdabort
  114. erroractiontype=0
  115. erroractionaction=stderror
  116. nextactiontype=2
  117. nextactionaction=return
  118. endrecord=true
  119. startrecord=true
  120. label=playdate02
  121. nodetype=1
  122. filename='avm:voices/monthfebruary'
  123. comment=February
  124. keyactiontype=3
  125. keyactionaction=
  126. faxactiontype=0
  127. faxactionaction=stdfax
  128. dataactiontype=0
  129. dataactionaction=stddata
  130. busyactiontype=0
  131. busyactionaction=stdbusy
  132. abortactiontype=0
  133. abortactionaction=stdabort
  134. erroractiontype=0
  135. erroractionaction=stderror
  136. nextactiontype=2
  137. nextactionaction=return
  138. endrecord=true
  139. startrecord=true
  140. label=playdate03
  141. nodetype=1
  142. filename='avm:voices/monthmarch'
  143. comment=March
  144. keyactiontype=3
  145. keyactionaction=
  146. faxactiontype=0
  147. faxactionaction=stdfax
  148. dataactiontype=0
  149. dataactionaction=stddata
  150. busyactiontype=0
  151. busyactionaction=stdbusy
  152. abortactiontype=0
  153. abortactionaction=stdabort
  154. erroractiontype=0
  155. erroractionaction=stderror
  156. nextactiontype=2
  157. nextactionaction=return
  158. endrecord=true
  159. startrecord=true
  160. label=playdate04
  161. nodetype=1
  162. filename='avm:voices/monthapril'
  163. comment=April
  164. keyactiontype=3
  165. keyactionaction=
  166. faxactiontype=0
  167. faxactionaction=stdfax
  168. dataactiontype=0
  169. dataactionaction=stddata
  170. busyactiontype=0
  171. busyactionaction=stdbusy
  172. abortactiontype=0
  173. abortactionaction=stdabort
  174. erroractiontype=0
  175. erroractionaction=stderror
  176. nextactiontype=2
  177. nextactionaction=return
  178. endrecord=true
  179. startrecord=true
  180. label=playdate05
  181. nodetype=1
  182. filename='avm:voices/monthmay'
  183. comment=May
  184. keyactiontype=3
  185. keyactionaction=
  186. faxactiontype=0
  187. faxactionaction=stdfax
  188. dataactiontype=0
  189. dataactionaction=stddata
  190. busyactiontype=0
  191. busyactionaction=stdbusy
  192. abortactiontype=0
  193. abortactionaction=stdabort
  194. erroractiontype=0
  195. erroractionaction=stderror
  196. nextactiontype=2
  197. nextactionaction=return
  198. endrecord=true
  199. startrecord=true
  200. label=playdate06
  201. nodetype=1
  202. filename='avm:voices/monthjune'
  203. comment=June
  204. keyactiontype=3
  205. keyactionaction=
  206. faxactiontype=0
  207. faxactionaction=stdfax
  208. dataactiontype=0
  209. dataactionaction=stddata
  210. busyactiontype=0
  211. busyactionaction=stdbusy
  212. abortactiontype=0
  213. abortactionaction=stdabort
  214. erroractiontype=0
  215. erroractionaction=stderror
  216. nextactiontype=2
  217. nextactionaction=return
  218. endrecord=true
  219. startrecord=true
  220. label=playdate07
  221. nodetype=1
  222. filename='avm:voices/monthjuly'
  223. comment=July
  224. keyactiontype=3
  225. keyactionaction=
  226. faxactiontype=0
  227. faxactionaction=stdfax
  228. dataactiontype=0
  229. dataactionaction=stddata
  230. busyactiontype=0
  231. busyactionaction=stdbusy
  232. abortactiontype=0
  233. abortactionaction=stdabort
  234. erroractiontype=0
  235. erroractionaction=stderror
  236. nextactiontype=2
  237. nextactionaction=return
  238. endrecord=true
  239. startrecord=true
  240. label=playdate08
  241. nodetype=1
  242. filename='avm:voices/monthaugust'
  243. comment=August
  244. keyactiontype=3
  245. keyactionaction=
  246. faxactiontype=0
  247. faxactionaction=stdfax
  248. dataactiontype=0
  249. dataactionaction=stddata
  250. busyactiontype=0
  251. busyactionaction=stdbusy
  252. abortactiontype=0
  253. abortactionaction=stdabort
  254. erroractiontype=0
  255. erroractionaction=stderror
  256. nextactiontype=2
  257. nextactionaction=return
  258. endrecord=true
  259. startrecord=true
  260. label=playdate09
  261. nodetype=1
  262. filename='avm:voices/monthseptember'
  263. comment=September
  264. keyactiontype=3
  265. keyactionaction=
  266. faxactiontype=0
  267. faxactionaction=stdfax
  268. dataactiontype=0
  269. dataactionaction=stddata
  270. busyactiontype=0
  271. busyactionaction=stdbusy
  272. abortactiontype=0
  273. abortactionaction=stdabort
  274. erroractiontype=0
  275. erroractionaction=stderror
  276. nextactiontype=2
  277. nextactionaction=return
  278. endrecord=true
  279. startrecord=true
  280. label=playdate10
  281. nodetype=1
  282. filename='avm:voices/monthoctober'
  283. comment=October
  284. keyactiontype=3
  285. keyactionaction=
  286. faxactiontype=0
  287. faxactionaction=stdfax
  288. dataactiontype=0
  289. dataactionaction=stddata
  290. busyactiontype=0
  291. busyactionaction=stdbusy
  292. abortactiontype=0
  293. abortactionaction=stdabort
  294. erroractiontype=0
  295. erroractionaction=stderror
  296. nextactiontype=2
  297. nextactionaction=return
  298. endrecord=true
  299. startrecord=true
  300. label=playdate11
  301. nodetype=1
  302. filename='avm:voices/monthnovember'
  303. comment=November
  304. keyactiontype=3
  305. keyactionaction=
  306. faxactiontype=0
  307. faxactionaction=stdfax
  308. dataactiontype=0
  309. dataactionaction=stddata
  310. busyactiontype=0
  311. busyactionaction=stdbusy
  312. abortactiontype=0
  313. abortactionaction=stdabort
  314. erroractiontype=0
  315. erroractionaction=stderror
  316. nextactiontype=2
  317. nextactionaction=return
  318. endrecord=true
  319. startrecord=true
  320. label=playdate12
  321. nodetype=1
  322. filename='avm:voices/monthdecember'
  323. comment=December
  324. keyactiontype=3
  325. keyactionaction=
  326. faxactiontype=0
  327. faxactionaction=stdfax
  328. dataactiontype=0
  329. dataactionaction=stddata
  330. busyactiontype=0
  331. busyactionaction=stdbusy
  332. abortactiontype=0
  333. abortactionaction=stdabort
  334. erroractiontype=0
  335. erroractionaction=stderror
  336. nextactiontype=2
  337. nextactionaction=return
  338. endrecord=true
  339.